with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Maxi is
   type A is array (Integer range <>) of Integer;


   function Maximax ( Tab : A ) return Integer is

      Itmax : Integer := 1 ;
      Max : Integer := Tab'First;

   begin
      for  Itmax in  Tab'Range loop -- tant qu'on sort pas du tableau
         if Tab(Itmax) > Max then
            Max := Tab(Itmax);
         end if;
      end loop;
        return Max;
   end Maximax;


   tabs : A(5..7) ;
   It : Integer :=1 ;
begin
   Put_Line("Rentre trois nombre gros!! :");
   for It in tabs'Range loop
      Put("> ");
      Get(tabs(It));
   end loop;

   Put(" Maximun: ");
   Put(Maximax(tabs));
end Maxi;

